Admin_Left.asp 耐品图片管理系统标准版A - ASP源码程序

gusucode.com > 耐品图片管理系统标准版A > 耐品图片管理系统标准版A/Admin_Left.asp
    <!--#include file="Admin_ChkPurview1.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================
%>
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=gb2312">
<link href="Style/naipin.css" rel="stylesheet" type="text/css">
<script language=javascript1.2>
function ShowMenu(sid){
	whichEl = eval("submenu" + sid);
	if (whichEl.style.display == "none"){eval("submenu" + sid + ".style.display=\"\";");}
	else{eval("submenu" + sid + ".style.display=\"none\";");}
}
</script>
<%Behind.WriteLangHead%>
</HEAD>
<body style="background-color: #EBEBEB;">
<table align=center cellpadding=0 cellspacing=0 width=158 bgcolor="#999999">
  <tr> 
    <td height=5></td>
  </tr>
  <td valign=bottom align=center><b><font color="#FF9900"><%=Config.SoftInfo(0)%></font></b></td>
  </tr>
  <tr height=30> 
    <td valign=middle align=center><a href='Admin_Main.asp' target='main' class='black'><strong><font color="#FFFFFF">后台首页</font></strong></a> 
      <a href='#' class='black'><font color="#FFFFFF">|</font></a> <font color="#FFFFFF"><a href="Index.asp" target="_parent" class='black'><b></b></a></font><a href="Index.asp" target="_parent" class='black'><b><font color="#FFFFFF">网站首页</font></b></a></td>
  </tr>
</table>
<br>
<%
Dim Menu,SubMenu(8),MenuInfo,MenuText,LineStr
Session("GroupInfo") =""
Session("ImageDesc") = ""
Session("Keyword") = ""
Session("ImageInfo") = ""

Menu = Array("网站设置","分类管理","内容管理","用户管理","数据管理","模板管理","ＪＳ调用","系统信息")

If Netout.Master Then
	SubMenu(0) = Array("SiteConfig.asp,网站配置","About.asp,关于本站","Help.asp,版权声明",_
		"UserRegInfo.asp,注册信息","FriendSite.asp,友情链接","AdInfo.asp,首页大图","AdVertise.asp,广告管理","PayAccount.asp,支付账号","PayTemplate.asp,支付模板")
	SubMenu(1) = Array("Class.asp,管理分类","ClassAdd.asp,添加分类","ClassOrder.asp,分类排序","ClassOrderN.asp,N 级排序")
	SubMenu(2) = Array("Add.asp,添加内容","Group.asp,组图管理","Images.asp,图片管理",_
		"ImagesPassed.asp,图片审核","Comment.asp,评论管理","Special.asp?specialtype=2,图片专题",_
		"Announce.asp,公告管理","ImagesRecomm.asp,推荐图片","TopLink.asp,顶部连接","ImagesHide.asp,隐藏图片","ImagesDown.asp,下载记录")
	SubMenu(3) = Array("UserGroup.asp,用 户 组","User.asp,管理用户","User.asp?Action=Add,添加用户","AppPur.asp,审核申请")
	SubMenu(5) = Array("Template.asp,模板列表","Export.asp,导入导出")
	SubMenu(6) = Array("JSCode.asp,调用列表")
	
	If Purchase Is Nothing Then
		SubMenu(0)(7) = SubMenu(0)(7)&",1"
		SubMenu(0)(8) = SubMenu(0)(8)&",1"
		SubMenu(2)(10) = SubMenu(2)(10)&",1"
	End If
	If IsSqlDataBase = 1 Then
		SubMenu(4) = Array("Database.asp?Action=Init,初 始 化","Database.asp?Action=DataSize,空间占用")
	Else
		SubMenu(4) = Array("Database.asp?Action=Backup,备份数据","Database.asp?Action=Compact,压缩数据",_
			"Database.asp?Action=Restore,恢复数据","Database.asp?Action=Init,初 始 化","Database.asp?Action=DataSize,空间占用")
	End If
	For j = 0 to 6
		ShowMenu j,False
	Next
Else
	SubMenu(2) = Array("Add.asp,添加内容","Group.asp,组图管理","Images.asp,图片管理","ImagesHide.asp,隐藏图片","ImagesDown.asp,下载记录")
	If Purchase Is Nothing Then
		SubMenu(2)(4) = SubMenu(2)(4)&",1"
	End If
	ShowMenu 2,False
End If
MenuText = Config.SoftInfo(0)&"<br>V "& Config.SoftInfo(1) &"<br>技术支持：<a target='_blank' href='"&Config.SoftInfo(2)&"' class='black'><font color='#ff0000'>"&Config.SoftInfo(3)&"</font></a><br><br>"
ShowMenu 7,True

Function ShowMenu(MenuID,MenuInfo)
	With Response
		.Write "<table align=center cellpadding=0 cellspacing=0 width=158>"
		.Write "<tr><td class=menu_title height=25 id=menuTitle"&MenuID
		If Config.Settings(33) = "0" Then
			.Write " onclick=""javascript:alert('请先进行网站配置！');"""
		Else
			If MenuID<=6 Then .Write " onclick='ShowMenu("&MenuID&");'"
		End If
		.Write " onmouseout=""this.className='menu_title';"" onmouseover=""this.className='menu_title2';"">"&Menu(MenuID)&"</td></tr>"
		.Write "<tr><td id=submenu"&MenuID&" style='display: none'><div class=sec_menu style='width: 158px'>"
		.Write "<table align=center cellpadding=1 cellspacing=0 width=124><tr><td height=5></td></tr>"
		If MenuInfo Then
			.Write "<tr><td height=20>"&MenuText&"</td></tr>"
		Else
			For i = 0 to Ubound(SubMenu(MenuID))  step 2
				.Write "<tr>"
				SubMenuHtml = Split(SubMenu(MenuID)(i),",")
				If Ubound(SubMenuHtml) = 1 Then
					.Write "<td height=20><a href='Admin_"&SubMenuHtml(0)&"' target=main class='black'>"&SubMenuHtml(1)&"</a></td>"
				End If
				On Error Resume Next
				SubMenuHtml1 = Split(SubMenu(MenuID)(i+1),",")
				If Ubound(SubMenuHtml1) = 1 Then
					.Write "<td height=20><a href='Admin_"&SubMenuHtml1(0)&"' target=main class='black'>"&SubMenuHtml1(1)&"</a></td>"
				End If
				SubMenuHtml=""
				SubMenuHtml1=""
				.Write "</tr>"
			Next
		End If
		.Write "</table></div><div style='width: 158px'><table align=center cellpadding=0 cellspacing=0 width=124>"
		.Write "<tr><td height=5></td></tr></table></div></td></tr></table>"&vbNewLine
	End With
End Function

If Config.Settings(33) = "0" Then
%>
<script language="javascript">ShowMenu(7);parent.main.location='Admin_SiteConfig.asp';</script>
<%
Else
%>
<script language="javascript">ShowMenu(2);ShowMenu(7);</script>
<%
End If
Behind.WriteLangBody
%>
</body>
</html>